home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / p4 / p4-1_2a.lha / p4-1.2a / messages_f / sr_master.f < prev    next >
Text File  |  1992-10-19  |  1KB  |  51 lines
  1.       program master
  2.  
  3.       include 'p4f.h'
  4.  
  5.       integer i,slaves,type,from,retcde,recvlen,buflen
  6.       character*40 buffer
  7.       integer TAGCNT, TAGDAT, TAGEND
  8.       parameter (TAGCNT = 10)
  9.       parameter (TAGDAT = 20)
  10.       parameter (TAGEND = 30)
  11.  
  12.       call p4init()
  13.       call p4crpg()
  14.  
  15.       slaves = p4ntotids() - 1
  16.       length = 0
  17.       buflen = 40
  18.  
  19.       do 10 i = 1,slaves
  20.          call p4sendr(TAGCNT,i,buffer,length,retcde)
  21. 10    continue
  22.  
  23. 20    print *,'Type a string: '
  24.       read (*,99,end=50) buffer
  25. 99    format(a40)
  26.  
  27.       do 30 length=40,1,-1
  28.          if(buffer(length:length) .ne. ' ') goto 40
  29. 30    continue
  30.       length = 0
  31. 40    continue
  32.  
  33.       call p4send(TAGDAT,1,buffer,length,retcde)
  34.       buffer = ' '
  35.       type = TAGDAT
  36.       from = -1
  37.       call p4recv(type,from,buffer,buflen,recvlen,retcde)
  38.  
  39.       print *,'MASTER receives= ',buffer,' from ',from
  40.       length = 0
  41.       goto 20
  42. 50    continue
  43.  
  44.       do 60 i = 1,slaves
  45.          call p4sendr(TAGEND,i,buffer,buflen,retcde)
  46. 60    continue
  47.  
  48.       call p4cleanup()
  49.       print *,'Master exiting normally'
  50.       end
  51.